home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Online / AList / src / alquit.e < prev    next >
Encoding:
Text File  |  1997-10-20  |  326 b   |  19 lines

  1. /* ALQuit.e */
  2.  
  3. /* Quits AList */
  4.  
  5. MODULE 'other/aldef'
  6.  
  7. PROC main()
  8.    barnacle_start()
  9.    IF (alist_replyport = NIL)
  10.       WriteF ('Major problems, dude!  I can\at even get a port open!\n')
  11.       CleanUp (20)
  12.    ENDIF
  13.  
  14.    IF (barnacle_put_msg (NIL, ALM_QUIT))  THEN WriteF ('AList isn\at up!\n')
  15.  
  16.    barnacle_end()
  17. ENDPROC
  18.  
  19.